home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / gkismet / ConnectionDialog.pm < prev    next >
Encoding:
Perl POD Document  |  2005-10-20  |  2.3 KB  |  96 lines
  1. #!/usr/bin/perl -w
  2. #
  3. # $Id: ConnectionDialog.pm,v 1.8 2003/07/09 22:49:54 solovam Exp $
  4. #
  5. # This file is a part of gkismet
  6. #
  7. # This program is free software; you can redistribute it and/or
  8. # modify it under the terms of the GNU General Public License
  9. # as published by the Free Software Foundation; either version 2
  10. # of the License, or (at your option) any later version.
  11. #
  12. # This program is distributed in the hope that it will be useful,
  13. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. # GNU General Public License for more details.
  16. #
  17. # You should have received a copy of the GNU General Public License
  18. # along with this program; if not, write to the Free Software
  19. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  20. #
  21.  
  22. #
  23. # ConnectionDialog class
  24. #
  25. package ConnectionDialog;
  26.  
  27. use Gtk;
  28. use Misc;
  29. use strict;
  30.  
  31. #
  32. # Constructor
  33. #
  34. sub new
  35. {
  36.     my $type = shift;
  37.     my $self = {};
  38.     bless $self, $type;
  39.  
  40.     my $gKismetApplication = shift;
  41.     $self->{'gKismetApplication'} = $gKismetApplication;
  42.  
  43.     my $dialog = new Gnome::Dialog('Connect', 'Button_Ok', 'Button_Cancel');
  44.     $self->{'dialog'} = $dialog;
  45.  
  46.     my $hostLabel = new Gtk::Label('Host:');
  47.     my $portLabel = new Gtk::Label('Port:');
  48.  
  49.     my $hostEntry = new Gtk::Entry();
  50.     $self->{'hostEntry'} = $hostEntry;
  51.     my $portEntry = new Gtk::Entry();
  52.     $portEntry->set_text('2501');
  53.     $self->{'portEntry'} = $portEntry;
  54.  
  55.     my $hostHbox = new Gtk::HBox($false, 0);
  56.     my $portHbox = new Gtk::HBox($false, 0);
  57.     $hostHbox->pack_start($hostLabel, $false, $false, 15);
  58.     $hostHbox->pack_end($hostEntry, $false, $false, 15);
  59.     $portHbox->pack_start($portLabel, $false, $false, 15);
  60.     $portHbox->pack_end($portEntry, $false, $false, 15);
  61.  
  62.     $dialog->vbox->pack_start($hostHbox, $false, $false, 10);
  63.     $hostEntry->grab_focus();
  64.     $dialog->vbox->pack_end($portHbox, $false, $false, 10);
  65.     $dialog->set_parent($gKismetApplication->{'application'});
  66.     $dialog->editable_enters($hostEntry);
  67.     $dialog->set_default(0);
  68.     $dialog->show_all();
  69.  
  70.     return $self;
  71. }
  72.  
  73. #
  74. # Run dialog
  75. #
  76. sub runAndClose
  77. {
  78.     my $self = shift;
  79.  
  80.     my $reply = $self->{'dialog'}->run_and_close();
  81.     my $host = '';
  82.     my $port = '';
  83.     if($reply == 0)
  84.     {
  85.         $host = $self->{'hostEntry'}->get_text();
  86.         $port = $self->{'portEntry'}->get_text();
  87.         return($host, $port);
  88.     }
  89.     else
  90.     {
  91.         return undef;
  92.     }
  93. }
  94.  
  95. 1;
  96.